home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
ULARN.ARJ
/
ULARN.TAR
/
ularn
/
bill.c
next >
Wrap
C/C++ Source or Header
|
1989-10-25
|
6KB
|
192 lines
/* bill.c */
#include "header.h"
static char mail600[32];
/*
* function to create the tax bill for the user
*/
static int pid;
letter1()
{
sprintf(mail600, "/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 600 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" the URS (Ularn Revenue Service)\n");
lprcat("\nSubject:");
lprcat(" undeclared income\n");
lprcat("\n We heard you survived the caverns of Ularn. Let me be the");
lprcat("\nfirst to congratulate you on your success. It is quite a feat.");
lprcat("\nIt must also have been very profitable for you.");
lprcat("\n\n The Dungeon Master has informed us that you brought");
lprintf("\n%d gold pieces back with you from your journey. As the",
(long)c[GOLD]);
lprcat("\ncounty of Ularn is in dire need of funds, we have spared no time");
lprintf("\nin preparing your tax bill. You owe %d gold pieces as",
(long)c[GOLD]*TAXRATE);
lprcat("\nof this notice, and is due within 5 days. Failure to pay will");
lprcat("\nmean penalties. Once again, congratulations, We look forward");
lprcat("\nto your future successful expeditions.\n");
lwclose();
return(1);
}
letter2()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 601 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" His Majesty King Wilfred of Ularndom\n");
lprcat("\nSubject:");
lprcat(" a noble deed\n");
lprcat("\n I have heard of your magnificent feat, and I, King Wilfred,");
lprcat("\nforthwith declare today to be a national holiday. Furthermore,");
lprcat("\nhence three days, Ye be invited to the castle to receive the");
if (sex)
lprcat("\nhonour of Knight of the realm. Upon thy name shall it be written. . .");
else
lprcat("\nhonour of Knightess of the realm. Upon thy name shall it be written. . .");
lprcat("\nBravery and courage be yours.");
lprcat("\nMay you live in happiness forevermore . . .\n");
lwclose();
return(1);
}
letter3()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 602 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" Count Endelford\n");
lprcat("\nSubject:");
if (sex)
lprcat(" You Bastard!\n");
else
lprcat(" You Bitch!\n");
lprcat("\n I heard (from sources) of your journey. Congratulations!");
if (sex)
lprcat("\nYou Bastard! ");
else
lprcat("\nYou Bitch! ");
lprcat("With several attempts I have yet to endure the");
lprcat(" caves,\nand you, a nobody, makes the journey! From this time");
lprcat(" onward, bewarned\nupon our meeting you shall pay the price!\n");
lwclose();
return(1);
}
letter4()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 603 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" Mainair, Duke of Ularnty\n");
lprcat("\nSubject:");
lprcat(" High Praise\n");
lprcat("\n With a certainty a hero I declare to be amongst us! A nod of");
lprcat("\nfavour I send to thee. Me thinks Count Endelford this day of");
lprcat("\nright breath'eth fire as of dragon of whom ye are slayer. I");
lprcat("\nyearn to behold his anger and jealously. Should ye choose to");
lprcat("\nunleash some of thy wealth upon those who be unfortunate, I,");
lprcat("\nDuke Mainair, Shall equal thy gift also.\n");
lwclose();
return(1);
}
letter5()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 604 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" St. Mary's Children's Home\n");
lprcat("\nSubject:");
lprcat(" these poor children\n");
lprcat("\n News of your great conquests has spread to all of Ularndom.");
lprcat("\nMight I have a moment of a great ");
if (!sex)
lprcat("woman's");
else
lprcat("man's");
lprcat(" time. We here at St.");
lprcat("\nMary's Children's Home are very poor, and many children are");
lprcat("\nstarving. Disease is widespread and very often fatal without");
lprcat("\ngood food. Could you possibly find it in your heart to help us");
lprcat("\nin our plight? Whatever you could give will help much.");
lprcat("\n(your gift is tax deductible)\n");
lwclose();
return(1);
}
letter6()
{
sprintf(mail600,"/tmp/#%dmail600",pid); /* prepare path */
if (lcreat(mail600) < 0) {
write(1,"can't write 605 letter\n",23);
return(0);
}
lprcat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
lprcat("From:");
lprcat(" The National Dianthroritis Society of Ularn\n");
lprcat("\nSubject:");
lprcat(" hope\n");
lprcat("\nCongratulations on your successful expedition. We are sure much");
lprcat("\ncourage and determination were needed on your quest. There are");
lprcat("\nmany though, that could never hope to undertake such a journey");
lprcat("\ndue to an enfeebling disease -- dianthroritis. We at the National");
lprcat("\nDianthroritis Society of Ularn wish to appeal to your philanthropy in");
lprcat("\norder to save many good people -- possibly even yourself or a loved one a few");
lprcat("\nyears from now. Much work needs to be done in researching this");
lprcat("\ndreaded disease, and you can help today. Could you please see it");
lprcat("\nin your heart to give generously? Your continued good health");
lprcat("\ncan be your everlasting reward.\n");
lwclose();
return(1);
}
/*
* function to mail the letters to the player if a winner
*/
static int (*pfn[])()= {
letter1, letter2, letter3, letter4, letter5, letter6
};
mailbill()
{
register int i;
char buf[128];
wait(0);
pid=getpid();
if (fork() == 0) {
resetscroll();
for (i=0; i<sizeof(pfn)/sizeof(int (*)()); i++)
if ((*pfn[i])()) {
sleep(20);
sprintf(buf,"mail %s < %s",loginname,mail600);
system(buf);
unlink(mail600);
}
exit(0);
}
}